home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Presentations / Presentations ’94 / Timothy Knox / Help / Help Files / System files / Stepper < prev   
Text File  |  1994-06-24  |  339b  |  15 lines
  1. {••• Some code for a non so trivial stepper in Help •••}
  2. {•••          Defines both STEPIN and STEPOUT       •••}
  3.  
  4. (let [(c 0)]
  5.   (define (stepin f e) 
  6.     (=! c (1+ c)) 
  7.     (prin c) (prin " -> ") 
  8.     (prin f) (prin " in ") 
  9.     (print (envar e)) (pause) c))
  10.  
  11. (define (stepout c v) 
  12.   (prin c) 
  13.   (prin " <- ") 
  14.   (printdebug v)(pause))
  15.